home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / AmigaTalk.lha / general / Interval.st < prev    next >
Text File  |  2000-05-15  |  2KB  |  63 lines
  1. Class Interval :SequenceableCollection
  2. ! lower upper step current !
  3. [
  4.    from: lowerBound to: upperBound by: stepSize
  5.      current <- lower <- lowerBound.
  6.      upper   <- upperBound.
  7.      step    <- stepSize
  8. |  
  9.    size   
  10.      ^ ((step strictlyPositive) 
  11.           ifTrue:  [upper < lower]
  12.           ifFalse: [lower < upper] )
  13.         ifTrue:  [ 0 ]
  14.         ifFalse: [upper - lower // step + 1]
  15. |  
  16.    inRange: value
  17.      ^ (step strictlyPositive)
  18.         ifTrue:  [(value >= lower) and: [value <= upper]]
  19.         ifFalse: [(value >= upper) and: [value <= lower]]
  20. | 
  21.    first
  22.      current <- lower.
  23.      ^ (self inRange: current) ifTrue: [current]
  24. |
  25.    last
  26.      current <- upper.
  27.      ^ (self inRange: current) ifTrue: [current]
  28. |   
  29.    next
  30.      current <- current + step.
  31.      ^ (self inRange: current) ifTrue: [current]
  32. |
  33.    at: index ifAbsent: exceptionBlock   ! val !
  34.      val <- lower + (step * (index - 1)).
  35.  
  36.      ^ (self inRange: val)
  37.          ifTrue: [ val ]
  38.         ifFalse: [exceptionBlock value]
  39. | 
  40.    printString
  41.      ^ 'Interval ', lower printString , ' to ',
  42.                     upper printString , ' by ' , step printString 
  43. |   
  44.    coerce: newcollection
  45.      ^ newcollection asArray
  46. |   
  47.    at: index put: val
  48.      ^ self error: 'cannot store into Interval'
  49. |   
  50.    add: val
  51.      ^ self error: 'cannot store into Interval'
  52. |   
  53.    removeKey: key ifAbsent: exceptionBlock
  54.      self error: 'cannot remove from Interval'.
  55.      ^ exceptionBlock value
  56. |
  57.    deepCopy
  58.      ^ lower to: upper by: step
  59. |   
  60.    shallowCopy
  61.      ^ lower to: upper by: step
  62. ]
  63.